program typecopy
	implicit none
	type CTest
		integer:: m_ia, m_ib
	end type

	type(CTest) :: Test1(2), Test2(3)
	Test1(1)%m_ia = 1
	Test1(1)%m_ib = 2
	Test1(2)%m_ia = 1
	Test1(2)%m_ib = 2
	Test2(1:2) = Test1
	Test2(3)%m_ia = 3
	Test2(3)%m_ib = 4

	write(*,*) Test2
	stop
end program

